unit uDept;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Input1, StdCtrls, Mask, DBCtrls, KDBEdit, DB,
   ImgList, ComCtrls,
  ToolWin, Buttons, ExtCtrls, KLookUp, ADODB;

type
  TfrmDept = class(TfrmInput1)
    KDBEdit4: TKDBEdit;
    KDBEdit3: TKDBEdit;
    KDBEdit2: TKDBEdit;
    KDBEdit1: TKDBEdit;
  private
  protected
    function ListRefreshData: TCustomKLookUp; override;
    function GetParamValue: String; override;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDept: TfrmDept;

implementation
uses uDataModule;

{$R *.dfm}

function TfrmDept.GetParamValue: String;
begin
      Result :=  DataModule1.qDeptDEPCODE.AsString;
end;

function TfrmDept.ListRefreshData: TCustomKLookUp;
begin

     Result := DataModule1.ListDept;
end;
end.
